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Breer Sbe BSiogiog PAR/ YRS. Macro yO4=00 _ 
LTITLE MPSHWPFM 
"IDENT | 'V04-000" 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY i ACCORDANCE wate THE TERMS OF SUCH aiytt ae THE 


® ® 
® ® 
® a 
® ® 
sd ® 
wt ® 
i a 
* IN OTICE. 0 . 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. . 
® ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. ° 
® * 
* DIGITAL #3SUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
® ® 
® ® 
® ® 
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e+ 
Facility: Multi-processor performance measurement display tool 
Abstract: This program displays the multi-processor performance measurements. 
Environment: MODE=Kernel 
Author: Kathleen D. Morse, Creation date: 27-Aug-1981 
Modified by: 
v03-010 KDMO0071 Kathleen D. Morse 15-Aug-1983 
Change the way kernel mode system service names are 
associated with a CHMK number. 
v03-009 KDM0032 Kathleen D. Morse 22-Nov-1982 
Remove the secondary wait time for reschedule histogram. 
Add the secondary kernel mode system service histogram. 
v03-008 KDM0029 Kathleen D. Morse 16-Nov-1982 


Remove SSNDJBC, since it changed from kernel mode 
to exec mode. 


v03-007 KDM0023 Kathleen D. Morse 07-0c t-1982 
Display elapsed time for primary and secondary. 
v03-006 KDM0022 Kathleen D. Morse 07-0c t-1982 


Add display for SERAPAT system service. 


1 | 


(1) 
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v03-005 KOM0021 Kathleen D. Morse 07-0c t-1982 
Fix cputime display. 


v03-004 KDM0017 Kathleen D. Morse — 30-Sep-1982 
Display percentages for system service and SCB histograms. 


V03-003 KDM0016 Kathleen D. Morse 30-Sep-1982 
Remove obsolete system services (GETJPP, GTCHAN) and 
add new ones (SNDJBC, GETSYI, GETDVI). Also, display 
overflow counter for system service hi.togram. 


v03-002 KDM0013 Kathleen D. Morse 27-Sep-1982 
Fix bug in cpu time display. 


' 
| 
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: Include files: 


> MACROS: 


.MACRO ENTRY KSSRV 
-PSECT HIST_SRV_PTR LONG,WRT ,NOEXE 


“LONG 
-PSECT RO_DATA LONG NOWRT ,NOEXE 
_"KSSRV 


«LONG _CMRS$C 
- ADDRESS *KSSRV' 
-ENDM 


> Equated Symbols: 
; te ;Process control block 


OO 00009 009 09 09 09 09 09 09 09 09 SIN NI NII NIN NINO A AAAAAAAO UU 


FUN" OVOWDNA UE WN -2§ CO ODNOAUE WIN - OOONAUEWWI-- O00 
> >. 
' 
1 
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De J Te ae ae | we | ae | we fe we ew wee le | we ee ww ww el wel awl ol ololeoleleleloleoleoleleleleolelelelelololelelelalalololelolola) 


a5 SPHDDEF :Process header block 
00000000 96 CMKSC_CLRAST = “x0 
00004028 97 CMKSC"ALLUJDR = “X4028 
00004029 98 CMKSC"ASSJNL = *x4029 
0000403A 99 CMKSC"CONJNLF = “X403A 
0000402A 00 100 CMK$C"CONUIC = “X402A 
90004 8 0 101 CMKS$C"CREJNL = ax4006 
00004 0 1 é CMKSC"CRENWV = *X4039 
00004038 9 1 SCIDCNINLF = *X403B 
| 90004 C 104 CMKS$C"DEALJOR = *x402C 
000402D 00 105 CMKSC"DEASJNL_INT = “x402D 
0000402E 00 1 $ CMKSC"DELINL = *X402E 
900040 F 00 107 CMKSC"DMTJMD = xa0eF 
90004030 0000 108 CHKSC“DSPINL = *x4050 
90040 1 00 109 CMKSC"GETJNL = *X4031 
4 3 0 110 CMKSC“GETRUI = “X40 
4 111 CMKSC"MNTJMD = “X40 
004 0 11 CMKSC“MODFLT = 2440 
0 004 4 0 113 CMKSC"POSJNL = *X4034 
CMKSC"READJNL = “X 
| 00004035 114 CMK$ *%4035 
| 
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00003400 
00003418 
00000000 
00003434 
00000000 
00000000 
90000000 


00000000 
00000000 


00000000 
00000000 


00000002 
00000000 
00000000 
000037A0 
00000000 
00000000 
00000000 
00000000 


00000000 
00000000 
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115 CMKSC_RECOVER = “ein 
138 CMKSC_RECOVERW = *Xx4057 
118 ; 

133: ; Histogram offsets 
131 ° 

1 ; HST_L_CELLCOUNT = 0 
1 HST_L_CELLWIDTH = 4 
124 HST_Q-OVRFLOW = 8 

! 5 HST_L_FIRSTCELL = 16 
137 «PSECT RW_DATA LONG,WRT,NOEXE 
44 PFM_DATA:: 

130 ~BLKL _ “x0D00 
131 CPU2TIME_DATA: 

136 TBLK 6 

133 CPU2 _NULLTIME : 

134 0 
135 CPUITIME. a 

136 = 
137 NULL _JOB. TIME : 

138 N “0 
139 NULL_JOB_TIME_D:: 
140 «LONG 0O 
141 

126 TEMP: : 

14 LONG 0 
144 -LONG 0O 
145 TEMP1:: 

146 LONG 0 
147 -LONG 0 
148 TEMP2:: 

149 -LONG 0 
150 -LONG 0 
151 TWO_32:: 

13 -LONG 2832 
153 HISTO_TOTAL:: 

154 -LONG 0 
155 0 
156 

157 HISTO_PERCENTS: 

158 -BLK 208 
159 

160 TIME1_SAMPLE:: 

161 -LONG 0 
16¢ LONG 0 

1635 TIME2_ SAWPLE: t 

164 ONG 0 
165 LONG 0 
166 - LONG 

16 - LONG 

168 

197 TIME1 age eo? 

170 0 
171 boa 
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unt of cells in histogram 
dth of each cell in histo 
yest to overflow accumulator 


3:Co 
Wi 
:0f 
;Offset to first cell in histo 


:Performance data area 
Secondary CPU time spent in 

3 each mode (K,E -C) 

: Secondary CPU null clock ticks 


:Primary CPU time spent in 
: each mode (K,E,S,U,1,C) 
sClock ticks for null job 


sClock ticks for null job 
: in double format 


:Accumulator for histogram 
; used for % calculations 


Array to hold histogram 
: percentages - 100 dbl values 


sTotal # of ar jeer? clock ticks 
3; accumulated in this sample 


sTotal # of gndary clock ticks 
3 accumulated in this sample 


: accumulated in this sample 
sTotal accum clock ticks 


; in this sample for primary 
: in double format 


r—-—_—- ———_ -- --- ——___-- ----- _——<$<—= -— — 


MPSHWPFM 16-SEP-1984 :14:02 VAX/VMS Macro v04-00 Pe 4 
| v04-000 Toes 7 85:45:98 MP.SRCIMPSHWPFM.MAR; 1 es (1) 
: 79 158 TIME2_SAMPLE_D :Total f clock tick 
t otal accum of clo cks 
| BO 880008 7C 174 “LONG : in this sample for secondary | 
| 0000000 te \f? «LONG 3: in soubts format | 
00003800 re 173 CPUITIME_PERCENTS: : pPercentage ef of epue*t tine grant 
| 800 179 CPU2TIME_PERCENTS: : ‘Percentage. of cpu oy sient 
00003838 533 139 ~BLKL 14 : in each mode (K,E,S,U,1 
83 18 
00000000 | ’ 188 ASCTIM_LENGTH:: .LONG 0 sLength of ascii time 
83C 185 ASCTIM_BUFFER:: 
0000388C 383C 186 -BLKB 80 
88C 187 
388C 188 ASCTIM_BUFFER_DSC:: 
00000050 388C 189 / 
0000383C" thon 139 - ADDRESS ASCTIM_BUFFER 
3894 136 ASCTIM_DSC_PTR:: 
0000388C' $008 132 -ABDRESS ASCTIM_BUFFER_DSC 
00000000 shee ia ASCII1_LENGTH:: .LONG 0 Length of ascii text 
| $89C 197 ASCII BUFFER: : 
OOOO38EC 389C 198 -BLKB 80 
38EC 199 
38EC 200 ASCII1_BUFFER_DSC:: 
00000050 38—C 201 “7 0 
0000389C* 38FO 202 ADDRESS ASCII1_BUFFER 
38F4 203 
3ere 204 ASCII1_DSC_PTR:: 
000038EC' ts soe -ABDRESS ASCII1_BUFFER_DSC 
00000000 sere 44 ASCII2_LENGTH:: .LONG 0 zsLength of ascii text 
38FC ©6209 ASCII2 BUFFERS: 
0000394C ence a -BLKB 80 
94C \¢ ASCI12_BUFFER_DSC: 
00000050 394C 1 - LONG” 80° 
000038FC' it 13 ADDRESS ASCII2_BUFFER 
3954 16 ASCII2_DSC_PTR:: 
0000394C" 934 Vv -ABDRESS ASCI12_BUFFER_DSC 
00000000 $36 19 OUTPUT_LENGTH:: .LONG 0 | 
95¢ 1 OUTPUT BUFFER: : | 
00003A24 Hi ¢ -BLKB 200 | 
A24 4 OUTPUT_BUFFER_DSC:: 
000000C8 3A24 5 “LONG. 200 
0000395C' A 8 § ADDRESS OUTPUT_BUFFER | 
A2ec 8 HISTO_1_FAO_PTR:: 
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00000000 3A 9 .LONG 0 | 
AS $e 
0000909 ; .PSECT RO_DATA LONG,NOWRT ,NOEXE | 
000 4 HISTO_KSRV_DSC:: | 
45 4B 2F 21 2 21 00000008'010E0000° 990 s sASCID \!/!/KERNEL SYSTEM SERVICES EXECUTED ON SECONDARY!/\ 
20 4D 45 54 ; 9 53 20 4C 45 af O0E 
‘45 58 45 20 53 45 43 49 56 52 4 O1A 
43 45 53 20 GE 4F 20 44 45 54 55 4 006 | 
2F 21 59 52 41 44 GE GF 00 2 : 
O03, 33) HISTO_TIME_DSC:: | 
49 54 2F 21 2F 21 00009042" 910E 0000" 003A 238 .ASCID \!/!/TIME PROCESSES SPENT ON SECONDARY!/\ 
53 45 53 53 45 43 GF 52 5 20 45 4D 0048 
45 53 20 GE 4F 20 54 4E 45 50 53 20 0054 
2F 21 59 52 41 44 GE GF 43 ©0060 
0069 339 
0069 240 HISTO_SRV_DSC:: 
59 53 2F 21 2F 21 99090071 "010E0009" 0069 241 -ASCID \!/!/SYSTEM SERVICE REQUESTED WHILE ON SECONDARY!/\ 
45 43 49 56 52 45 53 20 4D 45 54 53 0077 
57 20 44 45 54 53 45 55 51 45 52 20 0083 
GF 43 45 53 20 GE 4F 20 45 4C 49 48 (008F 
2F 21 59 52 41 44 4E 0098 
00A2 242 
O0Ag 243 HISTO_CTX_DSC:: 
45 52 2F 21 2F 21 900000AA"010E 9000" OOA2 244 .ASCID \!/!/REASONS FOR CONTEXT SWITCH OFF SECONDARY!/\ 
4F 43 20 52 4F 46 20 53 4E 4F 53 41 00B0 
48 43 54 49 57 53 20 54 58 45 54 4E 00BC 
41 46 4E GF 43 45 53 20 46 46 GF 20 00¢8 
2F 21 59 52 00D4 
00D8 345 
00D8 246 HISTO_KSRV_HDR:: 
00000000" 0008 347 ADDRESS HISTO_KSRV_DSC 
00DC 249 HISTO_TIME_HDR:: 
0000003A" 00DC 250 . ADDRESS HISTO_TIME_DSC 
9000058 00E0 $31 “ADDRESS HISTO-1_SUBTITLE 
00000292" O0E4 38 “ADDRESS HISTO~1~SUBTITLE2 
OES 253 HISTO_SRV_HOR:: 
00000069" O0E8 254 ADDRESS HISTO_SRV_DSC 
QOOEC 255 HISTO_CTX_HDR:: 
000000a2' OOEC 36 , ADDRESS HISTO_CTX_DSC 
ofS 38 HIST_DSC_PTR:: 
00000104" OOFO 25 “ADDRESS HISTO_COUNT 
00000132" OOF4 260 “ADDRESS HISTO"WIDTH 
ore 61 HIST_LIN_PTR:: 
0000015F* OOF 6¢ ; “ADDRESS HISTO_LINE 
OFC 65 HIST_OVR_PTR:: 
00000178" oF 64 “ADDRESS HISTO_OVERFLOW 
190 06 SRV_OVR_PTR:: 
00000199" 0100 26 . ADDRESS SRV_OVERFLOW 
104 68 HISTO_COUNT:: 
20 20 20 20 2F 21 9900010¢*010E 0000" 104 26 .ASCID \!/ = Number of histogram cells: !2ZL \ | 
69 68 20 66 6F 20 72 65 62 6D 75 4E 0112 
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Width of histogram cell: 
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WIDTH:: 


HISTO_ 


CID \!/!_Total elapsed time in sample interval for primary 


-ASCID \Overflow cell! !_!ZL!_!AS\ 


JASCID \!_!AC!_!ZL!_!AS %\ 
<ASCID \Overflow cell!_!ZL\ 


DSC_TOT:: 


LINE:: 
OVERFLOW: : 
OVERFLOW: : 


HISTO_ 
HISTO_ 
SRV_ 
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CPUTIM1_ 


CID \!/!_Total elapsed time in sample interval for secondary 


DSC_TOT:: 
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eASCID \!/!/!_ Number of context switches on secondary 
DSC:: 


CNT_CTXSW DSC: 
340 CNT 
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-ASCIC \Software level 14 interrupt 
eASCIC \Software level 15 interrupt 


eASCIC \Interval timer\ 

-ASCIC \Unused - offset C4 
-ASCIC \Unused = offset C8 
-ASCIC \Unused - offset CC 
-ASCIC \Unused - offset DO 
-ASCIC \Unused - offset D4 
-ASCIC \Unused - offset D8 
ASCIC \Unused - offset DC 
-ASCIC \Unused - offset £0 
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l | 
| 
53 17A5 
17A 724 | 
0000 8 725 -PSECT CODE BYTE,NOWRT,EXE 
: betice ENABL LSB 
0000 09 7 3 .WOR 5 
7 SCMKRNL_S GETDATA 
59 50 8 001 730 BLBS RO,10$ 
OSFA 31 oat , 1 BRW ERROR 
017 7 : ; GETDATA = This routine goes into kernel mode and copies the performance 
bets : ; data into a local buffer. 
0017 7 § GETDATA:: 
007C 0017 7 «WORD “M<R2,R3,R4,R5,R6> 
D4 0019 738 CLRL RO zsAssume failure 
56 00000000'GF 09 6048 739 MOVL G*EXESGL_MP,R6 :Get adr of loaded MP code 
48 13 00 740 BEQL ERR_EXIT ;Br if MP not loaded 
50 56 Q0000000'8F C1 0024 741 ADDL3 #PFASL_START,R6,RO sFind start of perf meas data 
51 $0 DO 002C oe MOVL (RO) ,R 3Get size of performance data 
00000000'EF 60 51 28 OO2F 74 MOVC3 R1,(RO),PFM_DATA ; Copy perf meas data to buffer 
0037 744 ASSUME CPU2_NULLTIME EQ <CPU2TIME_DATA + 24 
50 56 Q00000000'8F C1 0037 745 ADDL3 #MPSSAL_CPUTIME,R6,RO :Get adr of cpu time mode % vec 
oe oa 9A OO3F 746 MOVZBL #28,R1 sSeven longwords of data 
00003400'EF 60 51 28 0042 747 MOVC3  R1,(RO),CPU2TIME_DATA :Copy cpu time mode % data 
OOO0341C"EF QOO000000'GF 18 28 Q04A 748 MOVC #24 ,G*PMSSGL KERNEL,CPUITIME_DATA ;Get cpu time mode % data 
50 00000000'GF SE 0056 749 MOVAB  G*SCHSGL_NULCPCB,RO :Get address of null job's pcb 
50 6C AO 00 005D 750 MOVL PCBSL_PHB(RO) Get address of null job's phd 
00003434°EF 38 AO DO 0061 # 751 OVL PHDS$L~CPUTIM(RO) ,NULL_JOB_TIME sCopy accum null job cpu time 
50 O01 OA Boee P36 MOVZBL -RO 7Set success status 
06C 753 ERR_EXIT: 
04 006C 754 RET 
0060 755; 
006D 756 ; NOW FORMAT AND OUTPUT DATA. 
0060 757; 
0060 758 ios: 
50 QO000000'EF 9E& O06D 759 MOVAB HIST_SRV_PTR,RO sAddress of name text pointers 
51 00000984°EF 9E& 0074 760 MOVAB HIST_SRV_TBL,R1 Address of table of CHMK codes 
007B 761 3; and associated ASCII names 
re 762 11$: 
52 81 00 0078 76 MOVL (R1)+#,R2 :Get CHMK code 
61 D5 t43 764 TSTL (R1) zsIs this the end of the table? 
14 #1 08 765 BEQL 13$ :Br if end of table 
52 FFFFFFOO er D tt3 76 BITL @*XFFFFFFOO,R2 sCheck if loadable service 
3 76 BNEQ 12$ :Br if loadable service, do nothing 
6042 81 00 0088 768 MOVL (R1)+,(RO)CR2) sMove adr of ASCII name into 
O8F 18? 3 name text pointer table 
i 11 OO8F 770 BRB 118 sLoop for each kernel sys srv 
51 4 CO 0091 £771 12$: ADOL #4,R1 :Point past adr of sys srv name 
ES 11 0094 07 BRB 11$ tLoop for each kernel sys srv 
Bs ff 8 
57 O01 QA 38 775 MOVZBL #1,R7 zsNumber of one Liners to output 
58 90005 F'EF 9E 009 £76 MOVAB TITLE_PTR,R8 :Address of FAO cmd descriptor 
59 000000 Ore ’ AQ (77 MOVAB PFM_DATA,R9 :Address of data to output 
0570 a 78 BSBW OUTPUT_LINE Call to output one Line 
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AA 780 ASSUME CPU2_NULLTIME EQ <CPU2TIME_DATA + 24> 
AA 781 ASSUME ak JOB_TIME EQ <CPUITIME_DATA + 24> 
9 06 9A A 7 ; MOVZBL # RO Ger number of ¢pu time cells 
000 BB EF C OOAD 7? CLRD —« TIME1_SAMPLE_D Initialize cpul time sample 
OOOS7CO'EF  7C¢ 784 CLRD UpReS SAMPLE _D sInitialize cpu2 time sample 
54 it SIC‘EF 9E B 785 MOVAB CPUITIME_DATA,R4 sAddress of cpu time data 
55 QOOS400'EF YE Bc8 7 § MOVAB CPU2TIME_DATA,RS sAddress of cou time data 
58 44 7CB°EF YE 8 C 7 MOVAB CPU TIME “PERCENTS.RB sAddress for % data 
59 OOOSBO00'EF 9E cf 788 MOVAB CPU2TIME_PERCENTS,R sAddress for % data 
6840 e678 6E 8 D 789 20$: CVTLD = (R4) Re > (RB) CRO iConvert time to double format 
6940 958 6— OODA 790 CVTLD = (R5)CROJ,(R9)CRO :Convert time to double format 
° :Once per mode: K,E,S,U,1,C,Nu 
F350 =F4 oF £3 SOBGEQ R0,20$ d E,S,U,1,C,NuLl 
50 06 9A Og $38 MOVZBL #6,R0 :Get index to idle time cell 
51 04 9A OQOE 794 MOVZBL #4,R1 :Get index to interrupt time 
6840 6940 62 OOE8 795 SUBD (R9)CRO o REI EROS sSubtract secondary idle time 
68 6840 6 oped 796 SUBD (R8)CROJ, (RB) sSubtract idle from kernel time 
6941 6940 6 OF1 797 SUBD (RI) CRO RPO ERI sSubtract idle from interrupt 
6440 6540 C2 OOF6 798 SUBL (R5) CROJ, (R4) CROJ sSubtract secondary idle time 
64 6440 cs OOFB 799 SUBL (R4) CROJ, (R4) sSubtract idle from kernel time 
6541 6540 C th Hit SUBL (R5)CROJ,(RS)CRII :Subtract idle from interrupt 
50 06 9A 0104 o0e MOVZBL #6,R :Get index to idle time cell 
QO0037B8'"EF 6840 60 0107 803 30S: ADDD (RB) ROJ,TIME1_SAMPLE_D zAccum cpul sample time in dbl 
OOOOS7CO°EF 6940 60 O10F 804 ADDD (R9) CROJ, TIME2_SAMPLE_D Accum cpu2 sample time in dbl 
OOOO3S7A0'EF 6440 CO 0117 805 ADDL (R4) Rog TIME SAMPLE sAccumulate total time measured 
QOOOS7A8"EF 6540 CO O11F 806 ADDL (R5) CROJ, TIME2_ SAMPLE sAccumulate total time measured 
0D 50 =—F4 BES +t SOBGEQ RO,30$ sOnce per mode: K,E.S,U,1,C,Null 
50 06 9A BISA 809 MOVZBL #6,R0 :Get number of cpu time cells 
6840 00000000 000043C8 8F 64 012D 810 40S: MULD2 #10, (RB) RO} zAmount of time * 100 
6940 00000000 000043C8 BF 64 0139 811 MULD #100, (R9) CROJ zAmount of time * 100 
6840 O00037B8'EF 66 0145 Big DIVD2 TIME1_SAMPLE_D,(R8)CROJ :Compute % of cpu time 
oamechadt 3 bi28 813 ok Yinee. AMPLE_D is secendery active at all? 
14, :Br on active 
6940 7C 0155 815 CLRD (R9) CROJ zIndicate nothing to display 
08 11 0158 816 BRB 46$ Continue 
6940 G00037C0O'EF 66 OI1SA 817 45$: DIVD2 TIRES SAMPLE_D,(R9) CROJ :Compute % of cpu time 
C8 50S F4 0168 o18 46$: SOBGEQ RO,408 Once per mode (K,E,S,U.1.C) 
00003838°EF D4 0165 B20 CLRL ASCTIM_LENGTH 
o000s eer NS 10 00 b188 1 OVL #16,ASCTIM_BUFFER_DSC zInitialize output buffer dsc 
OO0037A0"EF  000037A0'EF ce 17 8 $ MNEGL TIME1 sAnece TIMET_SAMPLE 
00 000037A0'EF BOON RSAR BF A 170 8 EMUL #10000 TIME _SAMPCE ,#0,TIME1_SAMPLE 
18E 824 SASCTIM_S TIMLEN=ASCTIM_LENGTH,- 
18E 5 TIMBUF=ASC1IM_BUFFER_BSC,- 
O18 6 TIMADR=T JHE 1 SAMPLE = 
1 3 5 US ad 
03 50 8 OIA 3 BLBS RO,50$ 
462 31 O1AC BRW ERROR 
0000388C "EF 0000585 "EF DO OJ1AF 0 50$: MOVL SsCLIALLENGTNASCTIA_BUSFER_OSC 
5 01 9A O1BA 1 MOVZBL #1,R Number of one Liners to output 
5 743 a4 9E 01BD § OVAB TIME1_DSC_PTR,R8 sAddress of FAO cmd descriptor 
59 00003894 'EF 1€4 MOVAB ASCTIA_DSC_PTR,RO :Address of data to output 
O6e 1¢B 4 SBW = QUTPUT"LINE iCall to output one Line 
00003838'EF D4 OICE 5 CLRL ASCTIM_LENGTH 
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#16, ASCTIM BUFFER_DSC Initialize output buffer dsc 

TIRES SAMPCE TIME2_ SAMPLE 

#100000, TIMES_ SAMPLE ,#0, TIME2_SAMPLE 

$ TIMLEN=ASCTIM_LENGTH,=- 

+Hiabeetines” BUF FER_BSC,- 

TIMADR=T IME SAMPLE ,= 

EyTELG=@ 

RO,5 

ERROR 

OC LIALLENGTH ASCTIA BUFFER _DSC 

#1,R zsNumber of one Liners to output 

TIME2_DSC_PTR,R8 zAddress of FAO cmd descriptor 

ASCTIM_DSC_PTR,RO zAddress of data to output 

OUTPUT-LINE iCall to output one Line 

#2,R7 sNumber of one Liners to output 

TIME _ARRAY_PTR,R8S ;Address of FAO cmd descriptor 

PFM_BATA,R ;Dummy address to make rtn work 

OUTPUT _LINE Call to output one Line 

#7,R7 zsNumber of one Liners to output 

CPUTIM_DSC_PTR,R8 sAddress of FAO cmd descriptors 

CPUITIME_PERCENTS,R9 zAddress of data to output 

CPU2TIME PERCENTS,R10 Address of data to output 

OUTPUT_LINE_2 iCall to output one Liners 

#7,R7 ;Number of one Liners to output 

PFM_DATA+<PFMSL_CNT_CTXSW-PFMSL_START>,R9 ;Point past data size 

CNTRS_DS oR sAddress of FAO cmd descriptors 

OUTPUT_LINE iCall to output one Liners 

PFM_DATA+<PFMSA_HIST_TIME-PFMSL_START>,RO ;Point past data size 

HST_L_CELLCOUNT(R9) ,RO :Index to overflow accumulator 

HISTO_PERCENTS,R7 zAddress of percentage array 

HST_Q_OVRFLOW(R9) , (R7) CROJ :Convert overflow accumulator 
:Br if bit 31 ngt set 

(R7) CROJ, (R7) CROJ sNegate as bit 31 was set 

#<2a31>, (R7) CRO] :Add in bit 31 count 

HST_Q_OVRFLOW+4(R9) , TEMP :Convert high bits of overflow 

TWO-32, TEMP yRaise to appropriate power 

TEMP, (R7) CROJ zAdd in high order longword acc 

(R7)(ROJ,HISTO_TOTAL :Add in overflow 

#1,HST_L_CELLCOUNT(R9) ,RO zIndex into histogram 

HSf_L_CECLWIDTH(R9) , TEMP) :Remember cell width 

HST L FELL SOUNT (RO) , TEMPE Get count of cells 

TEMP1, TEMP 3Get nigh Limit of largest cell 

oh L CSLLUIOTHCR) , TERPY :Get width of one cell 

# A 4 age :Get median of cell width 

TEMP1, TEMP : :Get median of last cell 

HST_L_CELLWIDTH(R9) wr) Get width of one cell 

Tenpbsaphe cet CRE J,(R7)CRO)’ ;Convert number to float dbl 

TEMP1,R 

renee (R7) CRO) sMultiply by median cell value 

(R7) CRO} HISTO_TOTAL sAccumulate total for % calc 
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1. we ts F 9 ADDL #1,R0,R 7Get index to next cell 
6740 6741 69 38 ADDD CRODEAT) (879CR01 sAdd sum of other cells to this 
0000344C'EF ne 6 94 SUBD rene TEMP2 3Get median of next cell 
c5 50 oF 4 4 99 SOBGEQ RO,70$ tRepeat for each cell 
$e 69 00 48 39 MOVL HST_L_CELLCOUNT(R9) ,RO Index into histogram 
pooner 2 9E 4 98 MOVA #10, PEREENTS.R7 yAddress of percentage array 
6740 00906400 00043 F 64 50 99 80S: MULD #100, TR7) CROJ :Get ready to calculate % 
740 000034 “Ef 66 035C 900 DIVD $T6_TOTAL, (R7)CROJ :Calculate % time 
e950 F4 (OO ¢) 49 SOBGEQ R $508 sRepeat for each cell & ovrflw 
58 sees | ed 9E 0 67 $08 OVA W4STO. TIME_HDR,R8S phdérees of FAO gad descriptors 
5 3. 9A of 904 MOVZBL ;Numb er of one Liners to output 
02A6 30 0371 905 SBW ou fur INE :Call to output one Liners 
QOOO3A2C ‘EF OO01744°EF 9E 0374 906 MOVAB HIST IThe DSC,HISTO_1_FAO_PTR ;Address of FAO cmd descriptors 
3 OO00000'EF  9€ 37 907 MOVAB PEM BA TA+2PFMSA_HIST_TIME=PFMSL_ START>, R2 ;Skip past local indic 
5 O0003460'EF 9E 86 908 MOVAB HISTO_PERCENTS,R3 ddress of second FAO argument 
54 Q0000000°EF 9E 038D 909 MOVAB PFM_DATA+<PFMSA_HIST_PGFL-PFMSL_ iTaRts: RS i skip past local indic 
55 0000000 "EF 9E 0394 910 MOVAB PFM ~DATAS<PEMSA™ HIST— ~ CHMK=PFMSL_ START>,RS ;Skip past local indic 
56 00000000' 9E 0398 911 MOVAB PFM_DATA+<PFMSA_HIST_OTHR=PFMSL_START>,R6 :Skip past local indic 
57 QO000000'EF 9E O3A2 31g MOVAB PFM-DATA+<PFMSA_HIST_SSRV-PFMSL_START>, *R7 iSkip past local indic 
0360 30 ater 4 BSBW OUTPUT_HISTO_1 “Output an entire histogram 
59 00000000 ‘EF 9E baac 313 MOVAB PFM_DATA+<PFMSA_HIST_SRV-PFMSL_START>,R9 ;Point past data size 
50 69 00 0383 917 MOVL HST_L CELL COUNTIAD) . RO zIndex to overflow accumulator 
6 90005460°EE 9 0386 918 MOVAB HISTOR PERCENTS,R7 sAddress of percentage array 
? 6 038D 919 CVTLD 4HST_Q ~BURFLOWGRSS , (R7) CROJ iConvert overflow accumulator 
11 18 03C2 980 BGEQ 723" :Br if bit 31 not set 
6740 72 03€4 921 MNEGD (R7)CROJ,(R7)CROI Wegere as bit 31 was set 
6740 09900000 7 $7000008 of 60 03C9 356 ADDD2 #<2@31>,(R7) CRO) in bit 31 count 
sais ©5003 RB 6—E 0305 923 72$: CVTLD HST_Q_OVRFLOW+4(R9) , TEMP :Convert high Bits of overflow 
Q000345C"EF  00003454°EF 64 O03DD 386 MULD2 TwWO-32,TEMP : Raise to gherder ate power 
6740 9000343¢ EF 60 O3E8 925 ADDD2 TEMP, (R7)CROJ zAdd in hig order lonquerd acc 
$0003458 EF 6740 70 03F0 936 MOVD.  (R7)£ROJ,HISTO_TOT Aad in overt 
69 O1 C¢ bare 4 4 SUBL3 #1 NST-L CELLCOUNT (ROD , RO tIndex into ielseres 
6740 10 A940 oF O3FC $99 73$: CVTLD HST FIRSTCELL (RO) ERO), ~(R7) CROJ ;Convert number to float dbl 
00003458'EF 6740 0402 930 DD2 R7SCROJ ,HISTO_TOTA sAccumulate total for % calc 
EF 50 F4 Rene a8) SOBGEQ RO,735$ zRepeat for each cell 
o00ke dO o¢op 335 MOVL HST_L_CELLCOUNT(R9) ,RO :Index into histogram 
o3teo'er 9E 0410 934 MOVA HISTO PERbENTS.R/ :Address of percentage array 
6740 0009600 SHS 64 0417 832 74$: MULD #100, TR7) CROJ :Get ready to calculate % 
00034 BEF 66 0423 936 DIVD2 HISTO TOTAL, (R7)CROJ :Calculate % sys srv 
F4 " 3 $38 SOBGEQ R0O,7 tRepeat for each cell & ovrflw 
59  00000000'EF 9E 4 E 939 MOVAB PFA ghar HIST_SRV-PFMSL_START>,RO ;Ski past local indic 
58 000000€ tf 9E 04 940 MOVAB WIS STO_SRV_HDR,R8 sAddress of FAO gad descriptors 
5 1 QA 043C 941 MOVZBL # Number of one Liners to output 
0108 0 043F he Saw SCOUT PU INE all to output one Liners 
59  00000000'EF E re 94 MOVAB PFA DATA*<PEMSA HIST_SRV-PFMSL_ stints. RO ;Skip past local indic 
5A OQ0000000°EF 9E 044 944 MOVAB HIST S R,R10 sAddress of second FAO argument 
56 00003460'EF f $29 945 MOVAB HISTO. TPERCENTS, R6 Address of third FAO argument 
217 45 308 BSBW OuTP Eput, an entire histogram 
59 9000090 BM 3 45A 94 MOVA PFM UT eel nes HIST_SRV-PFMSL _stant Get adr of srv histo 
5 6 4 C¢ 461 948 MULL #4, AST_L_CELLCOONT(R9) ,RO sOffset to overflow cell 
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-SEP=19 MP.SRCIMPSHWPFM.MAR; 1 
MHST L_FIRSTCELL,R9 sPoint to first cell 
RO,RI :Point to overflow cell 
(R9) sony overflow? 
75$ if none, no new sys srv 
anv VR_PTR,R8 sAdéress of FAO cmd descriptor 
;One Line to output 
output LINE :Call to output one Line 
PFM_DATA+<PFMSA_HIST_CTX=PFMSL_START>,R9 ;Point past data size 
HST b oCELL COUNT 189) . RO sIndex to overflow accumulator 
HISTO-PERCENTS,R7 sAddress of percentage array 
HST. O-OVRELOW CAD), (R7) CROJ iConvert overflow accumulator 
76$ f bit 4 1 net set 
(R7)CROJ,(R7) CROJ ‘Ne +8 as 1 was set 
#<2a51>,(R7) CROJ 3 n bit of count 
HST_Q_OVRFLOW+4(R9) , TEMP Convert high bits of overflow 
TWO. 32, TEMP : Raise to a igh order’ Lo power 
TEMP, (R7) CROJ in hig order lLongword acc 
(R7)EROJ,HISTO aad in overt 
#1,HST_L_CELLC COUNTCRS) , RO zIndex into 1 
HST PURSTEELL CR?) CROD. (R7)CROJ ;Convert number to float dbl 
(R7SCROJ ,HISTO_TOTA sAccumulate total for % calc 
RO,77$ sRepeat for each cell 
HST_L_CELLCOUNT(R9) ,RO sIndex into histogram 
HISTO PERCENTS,R7 yAddress of percentage array 
#100, TR7) CROJ :Get ready to calculate % 
HISTO. TOTAL, (R7) CROJ :Calculate % SCB entries 
RO,78$ tRepeat for each cell & ovrflw 
PFM wars HIST_CTX=PFMSL_START>,R9 ;Point past data size 
HISTO_CTX_HDR,RB :Address of FAO cmd descriptors 
#1,R7~ :Number | of one Liners to output 
OUTPUT_LINE © output one Liners 
PFM DATA*<PEMSA HIST_CTX=PFMSL stant, RS :Skip past local indic 
HIST_CTX_PTR,R10 yAddress of second FAO argument 
HISTO PERCENES, R6 :Address of third FAO argument 
OUTPUT. HIS ;Output an entire histogram 


3 Qutput histogram of kernel system services executed on secondary. 


PFM_DATA+<PFMSA_HIST_KSRV-PFMSL_START>,R9 ;Point past data size 


HST_L “SELL COUNT CAD). RO sIndex to overflow accumulator 
HISTO-PERCENTS,R7 tAddress of percentage array 
HST Q ~OVRFLOWCRD), (R7) CROJ :Convert 0 ov rf low accumulator 

: n 
(R7) CROJ, (R7) CROJ ee aye eas bi bit aa us set 
#<2931>, (R7) CRO bit 31 
HST_Q_OVRFLOW+4 (RO), TEMP ee ee high bi ts er overflow 
TWO" 32, TEMP tRaise to appropriate p power 
TEMP, (R7) CROJ :Add in high order longword acc 
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00003458"EF 6740 7 5 1 MOVD (R7) CROJ ,HISTO_TOTAL zAdd in overflow | 
50 69 01 ig sf Hi SUBL3) #1, HST_L_CELLCOUNT(R9) ,RO Index into histogram | 
740 10A940 6 7A 4 83$: CVTLD HST_L_FIRSTCELL(R9)CROJ,(R7)CROJ sConvert number to float dbl 
0000848 'EF 6740 $5 5 9 1010 ADDD2 GR7SERO] HISTO_TOTAL sAccumulate total for % calc | 
EF 50 =F4 ; ; ! 1 SOBGEQ RO,83$ Repeat for each cell 
0 69 00 0588 1 18 MOVL HST_L_CELLCOUNT(R9) ,RO Index into histogram | 
57 700" Cr 9E 286 1014 MOVA HISTO BERGEN TSR? sAddress of percentage array 
6740 00000000 SO otE Ss F 64 0595 1015 84$: MULD #100,TR7) CROJ :Get ready to calculate % 
740 4 ff 66 5A1 1318 DIVD HISTO TOTAL, (R7) CROJ :Calculate % sys KSRV 
E9 50 F4 BoA? ie SOBGEQ RO,84$ Repeat for each cell & ovrflw 
: 59 QOQOQO00000'EF 9€ Beat 1019 MOVAB) = PFM_DATA+<PFMSA_HIST_KSRV=-PFMSL_START>,R9 Skip past local indic 
58 O00000D8"EF 9& 0583 1020 OVA HISTO_KSRV_HDR,R8 sAddress of FAO cmd descriptors 
57 01 9A OSBA 1021 MOVZBL #1,R7 sNumber of one Liners to output 
005A 30 O58D 1088 SBW  OUfPUT_LIN “Call to output one Liners 
5 QOOOOOOO'EF 9E O5C0 10 MOVAB PFM_DATA+<PFMSA_HIST_KSRV-PFMSL_START>,R9 ;Skip past Local indic 
5A QO0000000'EF 9E O05C7 ose MOVAB HIST_S Address of second FAO argument 
00003460'EF 9E& OSCE 1025 MOVAB HISTO_PERCENTS,R6 zAddress of third FAO argument 
0099 30 0505 1026 BSBW OUTPUT_HISTO i Outeut an entire histogram 
59 00000000 * EF 7 0508 ost MOVA PFM_DATA+<PFMSA_HIST KSRV-PFMSL_STAR >,R9 ;Get adr of KSRV histo 
50 69 04 C5 OSDF 1028 MULL #4, AST_L_CELLCOONT(R9) ,RO Offset to overflow cell 
59 10 (CO O05E3 1089 ADDL #HST_L-FIRSTCELL,R9 :Point to first cell 
59 50 CO OS5E6 1030 ADDL RO,RI : Point to overflow cell 
69 DS O5E9 1031 TSTL = (R9) zAny overflow? 
OD 13 OSEB 136 BEQL 85$ :Br if none, no new sys KSRV 
58 O0000100°EF 9E& OSED 103 OVA SRV_OVR_PTR,R8 sAddress of FAO cmd descriptor 
57 01 0 =—GA (O5FS «1034 MOVZBL #1 :One Line to output _ 
0020 30 O5F7 1035 OUTPUT_LINE :Call to output one Line 
OSFA 1036 85$: 
OSFA 1037 
OSFA 1038 hes 
OSFA 1039 ; 
OSFA 1040 ; Output number of times a process in a wait for event flag system service 
td, We) ; was returned to the secondary for completion of the system service. 
59 Q0000000'EF 9E O5FA 1048 MOVAB PFM_DATA+<PFMSL_CNT_NWAIT=PFMSL_START>,R9 ;Point to nowait data 
58 00000664"EF 9E 0601 1044 MOVAB CNT-NWAIT_PTR,RB Address of FAO cmd descriptor 
Sf 01 QA 0608 1045 MOVZBL #1 sNumber of one Liners to output 
oo00c§3=6 330 3 Hf BSBW OUTPUT_LINE Call to output one Liners 
50 01 9A O60E 1048 MOVZBL #1,RO | 
061 1049 ERROR: | 
0611 1050 SEXIT_S RO 
061A 1051 | 
O61A 1926 
O61A 1058 | 
061A 1054 ; R7 - Number of one Liners to output 
Q61A 1923 ; RB - Address of FAO command descriptors 
neta 1928 ; RO = Address of List of arguments (one per FAO command descriptor) | 
deta 1058 OUTPUT_LINE:: ; 
00003958'EF D4 061A 1059 CLRL tte LENGTH 
00003A24 ‘EF 000000C8 8F DO 0620 1060 MOVL #200 ,OOTPUT BUFFER_DSC sINITIALIZE OUTPUT BUFFER DSC 
68 1061 SFAO_S CTRSTR=a(RB),- 
628 1062 OUTLEN=OUTPUT_LENGTH,- | 


MP} 
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6¢8 1063 OUTBUF =OUTPUT_BUFFER_DSC,=- 
6 4 1064 P1=(R9) 
03 30 5s 643 1065 BLBS RO, 300$ | 
FFC 1 0646 1 66 BRW ERROR 
Q0DSKzATEF ROEREERSET OP RSE 188 008: OG SUM BENE. UTP urFeR osc | 
00000000' GF” 61 FR 065A 1069 ALLS of “GAL TBBPUT OUTPUT | 
ak SF SL AP RAS ute 
58 04 CO 0667 1976 310$: ADDL #4,R8 Point to next FAO cmd dsc 
59 04 CO Q66A 107 ADDL #4,R9 :Point to next argument 
AA 57 F5 8090 Ire SOBGTR R7,OUTPUT_LINE 
05 0670 1075 RSB 
0671 1076 
oer) 1078 
0671 1079 ; R9 = Address of first FAO argument for each output Line 
0671 1080 ; R10 = Address of second FAO argument for each output Line 
pent 13a) ; R6 = Address of third FAO argument for each output Line | 
0671 1088 OUTPUT _HISTO: : 
0671 1084 ; MOVAB HIST_DSC_PTR,R 
0671 1085 ; PUSHR #*M<RO,RT,R2,R3,R4,R5,R6,R7,R9,R10> 
0671 1086 ; MOVZBL #2,R7 
0671 1087 ; ASSUME HST_L_CELLCOUNT EQ 0 
0671 1088 ; ASSUME HST L_CELLWIDTH EQ <HST_L_CELLCOUNT + 4> 
0671 1089 ; BSBW OUTPUT_LINE 
0671 1090 ; POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R9,R10> 
57 69 D0 0671 1091 MOVL HST_L_CELLCOUNT(R9S ,R? :Count of Lines to output 
58  OOOO000F8"EF 9E 0674 1936 MOVAB IST_CIN PTR,R8 
59 10 A9 9E 067B 109 MOVAB HST_C_FIRSTCELL(R9) RO Get address of first histo cell 
067F 1094 NXT_LINE: 
69 D5 O67F 1095 TSTL (R9) zIs this cell empty? 
79 «#13 0681 1096 BEQL 410$ :Br if empty, don't output Line 
00003958"EF D4 0683 1097 CLRL OUTPUT_LENGTH 
OOOO3SA24"EF QO0000C8 8F DO 0689 1098 MOVL #200, 00TPUT_BUFFER_DSC zInitialize output buffer dsc 
QOOO38EC'EF 08 00 poze ISR MOVL #8, ASC111_BOFFER_DSC :Set number of output characters 
09 DD 0698 1101 PUSHL A Number of digits in exponent 
0 DD 069D 1106 PUSHL # Number of digits in integer 
00 ODD O69F 110 PUSHL #0 No scale factor 
04 DD O6A1 1104 PUSHL #4 Number of digits in fraction | 
OOOO38EC*EF 9F Q6A3 1105 PUSHAB ASCII1_BUFFER_DSC zAddress of output string dsc 
56 DD naz 1196 PUSHL R6 Address of value to convert 
00000000'GF 06 FB 06 11 CALLS #6,G*FORSCVT_D_TF 
03 50 8 068 1138 BLBS R9,420$ 
FF59° 31 0685 1109 ia BRW ERROR 
6B8 1111 SFAO_S CTRSTR=a(R8),- 
68 111g OUTLEN=OUTPUT_LENGTH, - | 
688 111 OUTBUF =OUTPUT_BUFFER_DSC,- 
bees 1113 PostRO) | 
net 1116 =ASCIE1_DSC_PTR | 
ig Gt AE gs 
OOOO3SA24"EF 00003958'EF DO O6DE 1119 400$ MOVL OUTPUT_LENGTH,OUTPUT_BUFFER_DSC 
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00003A24'EF 7F 6—E9 1120 PUSHAQ UTPUT BUFFER _DSC 
00000000 ' GF FB 6EF 4121 CALLS # GL {BSPUT OUTPUT 
3 g 4 ors 11 ¢ BLBS RO,410$ 
FF 1 O6F9 11 BRW ERROR 
59 04 C 6FC 1124 410$: ADDL #4 ,R9 Point to next argument 
SA 046 C€ 4 1125 ADDL #4,R10 Point to next argument 
56 608 «=6C é 11 § ADDL #6 RG Point to next argument 
0157 F 7 11 SOBGTR R/,NXT_LINE1 
05 0708 1128 RSB 
709 1129 NXT_LINE1: 
FF73 31 0709 1130 BRW NXT_LINE 
Bree 1131 
70C «(11 § 5 
O70C 1133; 
O70C 1134 ; This outputs a histogram with descriptions that are the start and 
ts 3 5 ; end of each cell, instead of a specific text. 
070C 1139 : R2 = Address of first FAO argument for each output Line 
070C 1138 ; R35 = Address of second FAO argument for each output Line 
O70C 1139 ; R4 = Address of third FAO argument for each output Line 
070C 1140 ; R5 = Address of fourth FAO argument for each output Line 
O70C 1141 ; R6 = Address of fifth FAO argument for each output Line 
070C 1166 3; R7 = Address of sixth FAO nae for each output Line 
O70C 11435 ; RB = Address of FAO command descriptor 
O70C 1144 ; 
070C 1145 OUTPUT_HISTO_1:: 
O70C 1146; PUSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10> 
O70C 1147 ; MOVL R2,R 
O70C 1148 ; MOVAB HIST_DSC_PTR,R8 
O70C 1149 ; MOVZBL #2,R7 
070C 1150 ; ASSUME HST_L_CELLCOUNT EQ 0 
070C 1151; ASSUME HST_L_CELLWIDTH EQ <HST_L_CELLCOUNT + 4> 
070C 1136 3 BSBW OUTPUT_LINE 
O70C 1153 ; POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10> 
59 04 A2 DO O70C 1154 MOVL  HST_L_CELCWIDTH(R2S ,RO Remember cell width 
SA 04 0710 1155 CLRL R10 sInitialize cell boundary 
5B 59 #01 C3 O712 1156 SUBL3. - #1,R9,R11 sInitialize cell boundary 
58 62 p00 0716 1157 VL HST_L_CELLCOUNT(R2) .R8 :Count of Lines to output 
52 10 A2 9E 0719 1158 MOVAB HST_L_FIRSTCELL(R2) ,R2 Get address of first histo cell 
54 10 A4 YE O71D 1159 MOVAB HST_L_FIRSTCELL(R4) ,R4 :Get address of first histo cell 
55 10 A5 9E 0721 1160 MOVAB HST_L_FIRSTCELL(RS) RS :Get address of first histo cell 
56 10 A6 YE 0725 1161 MOVAB L_FIRSTCELL (R6) ,R6 Get address of first histo cell 
57 WA? 9E 4 . 1196 aa en te HST_L_FIRSTCELL(R7) ,R7 :Get address of first histo cell 
OOOO388C*EF O08 00 $F D 1164 AOVL #8, ASCTIM_BUFFER_DSC Set number of output characters 
0 DD 0734 1165 PUSHL # Number of digits in exponent 
0 DD 07 $ 1166 PUSHL # Number of digits in integer 
00 OD Q7 1167 PUSHL #0 :No scale factor 
04 DD O73A 1168 PUSHL #4 Number of digits in fraction 
OOOO3S8BC*EF OF O07 § 119) PUSHAB ASCTIM_BUFFER_DSC jAddress of output string dsc 
3 DD 0742 1170 PUSHL R zAddress of value to convert 
00000000 ' GF 98 re 744 «(1171 CALLS $8 -GoLORSCVT_O.TF 
03 3 748 1106 BLBS RO,500$ 
FECO | 31 7a 117 BRW ERROR 
SA Fhe ff 04 fe 1174 500$: CLRL tte LENGTH 
00003A24 ‘EF O0009C8 BF D 757 «1175 MOVL #200 ,OOTPUT_BUFFER_DSC INITIALIZE OUTPUT BUFFER DSC 
50 OO003A2C°EF 00 0762 1176 MOVL HISTO_1_FAOTPTR,RO 
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1 7 769 1177 MOVL (R7),R1 :Get number of system service 
51 00000000"EF £4 4 f 1153 Boy. ‘ WAST Ba ATACRTIORI :Get name of system service 
774 1180 -" QUTLEN=OUTPUT_LENGTH,- | 
774 «1181 ee er aneee™ 
= oe 
th 1 : P2=R11,- 
774 1184 PaztR2s - 
774 1185 P4=ASCTIM_DSC_PTR,- 
0774 11 § P5=(R4),- 
774 «(171 bl tt Se 
st is Bit 
oso GF Erte 1g) as Besos | 
OO3SA24"EF  OO0039SB°EF DO O7A3 1192 510$: MOVL  OUTPUT_LENGTH,OUTPUT_BUFFER_DSC | 
28 QOOO3A24"EF  7F O7AE 1198 PUSHAQ OUTPUT BUFFER 
00000000'GF 01 FB 0O7B4 1194 CALLS #1 Go TBSPUT OUTPUT 
sh SF GE Hiss BES agbe 
5 aa CO O7C1 1197 520$: ADDL #4,R Point to next argument 
¢ 08 cO O7C& 1198 ADOL #8,R Point to next argument 
54 04 CO O7C7 1199 ADDL #4 RG :Point to next argument 
55 04 CO O7CA 1200 ADDL #4,R5 7Point to next argument 
56 04 CO O7CD 1201 ADDL #4 ,R6 Point to next argument 
57 046 CO O7D0 120 ADDL #4,R7 :Point to next argument 
5A 59 CO O7D3 1 88 ADDL R9,R10 zNext cell boundary 
5B 59 ¢€O O7D6 1204 A R9,R11 Next cell boundary 
a a 
: ) NXT_LINE_1 
O6rt BF ap bre i $8 378: BOSH #HZRO RT,R2,R3,R4,R5,R6,R7,R9,R10> 
OO0OO388C*EF 08 00 O7ES 1209 OVL #8, ASCTIM. BUFFER_DSC :Set number of output characters 
00 DD O7EC 1210 PUSHL z 7 sNumber of digits in exponent 
03 oD bE 1211 PUSHL #3 Number of digits in integer 
00 DD O7FO 121 PUSHL #0 No scale factor 
04 DD O7F2 1 13 PUSHL #4 peer Os cores toe | 
¥ ;Address of outpu 
— gf 4 aa i 13 PUSHL” i yomanicscs ‘address of soles to convert 
*GF 06 =F 7F 121 CALLS #6,G*FORSCVT_D_ | 
~ he Gee i Be ae 
SoCesAcs "Er 000000¢8, BF 5 O8oF 20 epi ROWE #200,0 TPUT BUFFER osc s INITIALIZE OUTPUT BUFFER DSC 
et ee 8 ‘4 2 SFAO_S CTRSTR=AISTO_OVERFLOW,- | 
- 7 ~ QUTLEN=OUTPUT_LENGTH,- 
1 : : OUTBUF =OUTPUT_BUFFER_DSC,- 
1 | 6 P2=ascT{M_DSC_PTR 
03 50 8 rt: 1 BLBS RO, 5608 
Foc9,s31— 0845 1 g BRw ERROR 
00003A24 ‘EF 5 oe 0 33 : ; 560$: pov SUTEUT LENGTH. QUIPUT _BUFFER_DSC 
000008 Mere ‘ re 59 1231 CALLS Hl, = BSPUT OUTPUT 
03 50 8 60 1 § BLBS RO 875 
FDAB 5 63 1 BRW ERROR 
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O6FF BF BA 66 1234 570$: POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R9,R10> 
5 6A 1235 RSB 
ea 1539 | 
68 1 8 : R7 = Number of one Liners to output 
68 1 ; RB = Address of FAO command descriptors 
68 1240 ; RY = Address of List of first argument (one per FAO command descriptor) 
re ! *} ; R10 = Address of List of first argument (one per FAO command descriptor) | 
O00039S8'EF D4 OBee f i ethene 
00003A24'EF 000000¢8 i D al 1245 MOVL #300, 0,OOTPUT BUFFER_DSC s INITIALIZE OUTPUT BUFFER DSC 
Boooseec er 8 OD 71 } v4 MOVL ASCII1_BOFFER FER_DSC :Set number of output characters 
; DD 124 PUSHL # Number of digits in exponent 
6 DD 1 8 PUSHL # :Number of digits in integer 
0 oD 124 PUSHL # No scale factor 
04 OD 9 1250 PUSHL #4 :Number of digits in fraction 
OOOOSBEC'EF 9F 1251 PUSHAB ASCI11_BUFFER_DSC tAddress of output string dsc 
9 ODD 91 1 26 PUSHL R9 :Address of value to convert 
00000000'GF 06 FB 693 125 CALLS #6,G*FORSCVT_D_TF 
For Sh BoD 15985 BR OERROR 
OOOO3S94C°EF 08 00 O no 1 2$ 600$: MOVL #8, ASCII2_BUFFER_DSC Set number of output characters 
0 DD OBA 125 PUSHL # :Number of digits in exponent 
o8 DD OBA9 1258 PUSHL # sNumber of digits in integer 
00 OD OB8AB 1259 PUSHL #0 :No scale factor 
04 DD OBAD 1 60 PUSHL #4 :Number of digits in fraction 
OOOOS94C'EF 9F OBAF 126 PUSHAB ASCII12_BUFFER_DSC :Address of output string dsc 
5A DD 0885 1 66 PUSHL R1 :Address of value to convert 
00000000 ' GF 06 fe 0887 126 CALLS #6,G*FORSCVT_D_TF 
%. i 3 Ose} : ¢: a8s give 
03958" 4 D4 O8C4 1266 610$: CLRL 6 
00003A24 ‘EF §09000¢8 e dO th ! rt aH: . a OOTPUT BUFFER. DSC s INITIALIZE OUTPUT BUFFER DSC 
0805 1269 : GUTLEN=OUTPUT. LENGTH 
0805 1270 OUTBUF =OUTPUT— “BUFFER “DSC, - 
sp 1271 PI=ASCII1_DSC_PTR,= 
o Ds 127 RO. 0308 DSC"PTR 
FoR Se RR bes | 
00003A24'EF sh eH ? 508 1 o 620$: pitas SuTPOT. Lemern -OUTPUT_BUFFER_DSC 
O0000000 "GF 0} FB a8 ! 4 CALLS | 6 hye OUTPUT | 
FCF6 5 918 127 BRW n0;630 
58 C 91B 1280 630$: ADOL #4,R8 :Point to next FAO cmd dsc 
59 C 91E 1281 ADOL . Rg :Point to next argument | 
5A H C 9 f 1 ¢ ADOL *R1 :Point to next argument 
01 F3 3 4 ; SOBGTR +6408 
| 
FF4O rf 928 1285 6408: BRW OUTPUT_LINE_2 
928 1 $ 
358 1588 |; | 
928 1 5 : This outputs a histogram with descriptions thet are the start and | 
928 1 ; end of each cell, instead of a specific text 
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388 33 : ® Address of first FAO argument for each output Line | 
; 5 ! $8 ; R35 = Address of second FAO argument for each output Line | 
358 | $6 Deer TGR eencho,R1R2,RS,R6,RS,R6,R7,R8,RP,R10> | 
§ MOVL 
3 i $8 : HOVAB, ; ST _DSC_PTR,RS 
92B 1 3 f 
; CELLCOUNT EQ 0 
3 8 : } : ASSURE mati EQ <HST_L_CELLCOUNT + 4> 
92B 1 § § BSBW U i 8.RO.R10> 
928 1 : POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8, "s net welt wide 
a Ve ie i 08 Cert HST _U_CELLWIDTHiR2S .RD tInitiatize cell boundary 
oS 3 ‘ 130 SUBL3 #1,R9,R11 sInitialize cell boundary 
eo 5 8 . ¥ 89 MOVL HSf L“CELLCOUNT(R ),R8 ;Count of lines to pee 
52 Bo A Hy 03 8 1308 . AB HST_L-FIRSTCELL(R2) ,R2 Get address of first histo cell 
S3e 1310 at NE RS , ; of output characters 
OOOO388C"EF 08 D0 O09 § 1310 wt #6 ASCTIM_BUFFER_DSC eer ie pu Beweecti ns 
63 (FO Bocs 1813 PUSHL # Number of digits in integer 
ae ok 18 PUSHL 40 3;No scale factor 
be BD O929 i lz PUSHL #4 ;Number "oe clneue Gertee tae 
: ut s 
1000s BBC EE OD Ott 1316 mae Ligavaen ba salen be commer? 
100000006 1s 85 EB OOSA 1818 Stas RO.fo0s | 
RW ERROR 
cB? My 44 i 6 700$: CLL OUTPUT_LENGTH a psc 
0000 Manette aes 6 1321 MOVL 7200 OOTPUT_BUFFER_DSC s INITIALIZE OUTPUT BUFFER D 
3A24'EF Q00000C8 BF dO Bee a A Wistoct PaOnPTR RO 
50 OQOO03A2C"EF 00 $78 : ¢ SPAO_S crasTR=TRO) =~ pate 
z ;H,= 
35 i ¢ OUTBUF =OUTPUTZBUFFER-DSC,- | 
o978 1359 P2=R11.- 
$or8 1328 P3=(R2),- 
978 1329 pa=aSCTim_DSC_PTR | 
9739 GF ose 1387 BRO, OERROR® 
0000 ° 0000 . : TPUT_LENGTH, OUTPUT _BUFFER_DSC | 
— Hera 4 BRA i : — PUSHAG SUTPUT-BUF TER DSC 
° 380 1 : CALLS #1 Gp pesPut OUTPUT 
3 50 987 1 | 
Fem oBn 1 $ 7208: ADDL ERROR Point to next argument 
as 3e 1 "ADDL a Re :Point to next argument | 
3 3 1 3 ADOL ao’ Rio :Next cell boundary | 
9 9C6 1340 ADDL R9.R11 sNext cell boundary | 
PF Bee Tih gaueteBtags 
0 9CC | 
9CE 1345 7308: BRW NXT LINE 2 . | 
305 188 eo BOREROGT-R2,RS,RG,RS,RER7.RO.RID>, number of output characters 
3p? : tz PUSHL i" 4 z sNumber of digits in exponent 
9DE 1 i$ PUSHL @# sNumber of digits in intege | 


OO 
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8° DD O9EO 134 PUSHL #0 No scale factor 
4 D Q9E2 134 PUSHL #4 sNumber of d gits in fraction 
0000388C ‘EF F Q9E4 1 PUSHAB ASCTIM_BUFFER_DSC tAddress of output string dsc 
3 DD O9EA 1 PUSHL tAddress of value to convert 
00000000 ' GF F 3eC 1 : CALLS gen 
ne Be ee 
00003958" EF De 0os 5 750$: CLRL OUT T LENG | 
00003424 "EF 900000¢8 BF p Ha 36 HOVL a 00,0 PUT “BUFFER. DSC sINITIALIZE OUTPUT BUFFER DSC 
All 1 28 SFAO_S CTRSTR=AISTO OVERFLOW, = 
All 135 UTLEN=OUTPUT_LENGTH,- | 
all 60 QUTBUE = OUTPUT~ “BUFFER “DSC.- 
OAI1 1 6¢ saa DSC_PTR | 
Fede PONE RRS hat | 
00003A24'EF 90903958 EF b0 ones 65 7608: MOVE 9 0 UTpuT LENGTH, OUTPUT _ BUF FER_DSC | 
00000000'GF 01 FB OA49 1 $$ CALLS | i, sLTBSPUT. BUTPUT | 
ee a ee 
O6FF BF BA OA56 1 3 770$:  POPR F HCRO.R1.R2.R3.R4.RS.R6.R7_.RI-R10> | 
a 8 tae 
0A5B 1398 .END SHWPFM 
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ASCT 


CLRPAR 
CMKSC_ADJSTK 
CMK$C~ADJWSL 


CMKSC~CRETVA 
CMKSC~CRMPSC 


mODao 
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DDBDDDDDD 


000006E1 
06 


000006F 6 


teereeee 
eeenerer 
eeeteree 
00004028 
eeerenee 
erereene 
eeeeerer 
00004029 
eeereree 
eeneerer 
eeeteres 
eeerener 
etereree 
00000000 
eeereres 
erereres 
eeereeee 
eeererer 


gereeeee 
geeaeraenre 
eeeareee 
00004039 
ftererene 
gererere 
gtererere 
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CMKSC_DACEFC 
CMK$C~DALLOC 
CMKSC~DASSGN 
CMKSC"DCLAST 
CMKSC-DCLCMH 
CMKSC"DCLEXH 
CMKSC"DCNUNLF 
CMKSC-DEALJD 
CMKSC-DEA 
CMKSC~DELJNL 
CMKSC~DELLNM 
CMKSC_DELMBX 
CMKSC~DELPRC 
CMKSC"DELTVA 
CMKSC"DEG 
CMKSC"DERLMB 
CMKSC~DGBLSC 
CMK$C~DLCONP 
CMKSC"DLCEFC 
CMKSC_DMTJMD 
CMKSC~DSPUNL 
CMKSC"ENQ 
CMKSC"ERAPAT 
CMKSC"EXIT 
CMKSC~EXPREG 
CMKSC~FORCEX 
CMKSC"GETCHN 
CMKSC~GETDEV 
CMKSC~GETDVI 
CMKSC~GETUNL 
CMKSC~GETJPI 
CMKSC~GETLKI 
CMKSC-GETPTI 
CMKSC~GETRUI 
CMKSC-GETSYI 
CMKSC"HIBER 
CMKSC-LCKPAG 
CMKSC“LKWSET 
CMKSC"MGBLSC 
CMKSC"MNTJMD 
CMKSC"MODFLT 
CMKSC~POSJNL 
CMKSC~PURGWS 
“a10 
CMKSC"READEF 


CMKSCTRECOVER 
CMKSC"RECOVERW 
CHKSC "RESUME 
CHKS$C~RUNDWN 
CMKSC"SCHDWK 
CHKSC"SETAST 
CHKSC"SETEF 
CMKSC"SETEXV 
CMKSC"SETIME 
CMKSCTSETIMR 
CMKSC"SETPFM 
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0000402F 
00004030 


geearraene 
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gererenre 
greeaeeaene 
geerearee 
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geereene 
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00004031 
Reeeeeee 
Reet 
geereene 
00004032 
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teeaeree 
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C"WFLOR 
nC 
DSC_PTR 
ASTSC_DSC 
PERCENTS 
CTIME 
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CNTREG 

CNTRS 

CNT 


CMKS 
CMKR 
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Q 
PaG 
RECOVERW 
RESUME 


HST 
LCK 
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Symbol table Breer 1b8d OS:OP og LAR/ URS macro vO4n00 age 7), Tat 
SCB_OEO 1514 R WFLOR 
$¢B_ OED 0001514 & L 00000851 Rs 03 
aes He 
SCB~ mit 18AC R 
SCB~OF4 18D2 R 
otB-ore BOlgiE & 
SCHScL _NULLPCB T0000 TDS . x 
a SHE 
Serer GO00rEA Pee 
SETIME 0000888 R 0 
SETIMR OOOO7FF RO 
SETPFM D0000B5E R 
SETPRA OO0007FB ROO 
SETPRI 90000806 R 9 
SETPRN 000007F1 R 3 
SETPRI 90000800 R 03 
SETPRV OOO0OBBF R 3 
ETRUM 90000814 R 05 
SETSFM 00000818 R «3 
SETSSF 00000896 R 05 
SETS TK 000008AS Rs 
SETSWM 90000823 R 03 
SHUPFM 00000000 RG 05 
NDERR 90000781 R03 
SRV. OVERFLOW 00000199 RG 03 
SRV-OVR_PTR 90000100 RE 05 
SUSPND 00000829 R 3 
SYSSASCTIM eeeeeeee GX 05 
SYSSCMKRNL teeeeeee GX 05 
SYSSEXIT eeneneee GX 05 
SYSSFAO eeeneeee X05 
TEMP 02 
a 
: | 
| 
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! Performance indicators B 
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Phase Page faults CPU Time Elapsed Time 


Initialization i 90:00:00.1) 00:00:00.3 
pennens processing 14 Ha Be 00:00:05.2 
328 00:00:1 6 80:60: 63°¢ 
poked table sort 0 00:00:01. 00:00:02.02 
Pass 2 319 00:00:04.9 Bo Bb? A “Oe 
Symbol table output 47 Bn a8: 0.39 0:00:00.91 
Psect synopsis output 3 0:00:00.03 00:00:00.03 
Cross-reference output 0 00:00: 9-98 00:00:00.00 
Assembler run totals 879 00:00:17.90 00:00:51.78 


The working set Limit was 1950 pages. 

71477 bytes (140 pages) of virtual memory were used to buffer the intermediate code. 

there were 40 pages of symbol table space tl eae to hold 649 non-local and 51 Local symbols. 
1373 source Lines were read in Pass 1, produci "ts object records in Pass 2. 

17 pages of virtual memory were used to define 15 macros. 
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Macro Library name Macros defined 


~$52350UA 8:CMP.OBJIMP. m8; 1 0 
$52280 Uae: SYS.0B JILIB.MLB;1 

“$255$DUA aye IBISTARLET. MLB; 2 

TOTALS (all Libraries) 11 


361 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MPSHWPFM/OBJ=OBJ$:MPSHWPFM MSRC$:MPSHWPFM/UPDATE=(ENHS$:MPSHWPFM) +EXECML$/LIB+L1B$:MP.MLB/LIB 


MPSHWPFM 16-SEP-1 AX/VMS_ Macro V04-00 Page 38 
Psect synopsis s “SEP-1 1984 63; OF: 3 UMP. SRJMPSHUPEM. AR; 1 . (1) 
¢ ewer wwe ce secese wn + 
! ; Psect synopsis H 
PSECT name Allocation PSECT No. Attributes 
, OS «. 0000000 ( 8.3 00 ( 0.) NOPIC  USR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS $? 900 ( ) 1¢( 1.) NOPIC USR CON ABS LCL NOSHR' EXE WRT NOVEC BYTE 
RwW_DATA (14896.) ¢ ( §°3 NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
ATA BRR A TAP ( 6054.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE R&D NOURT NOVEC LONG 
HIST_SRV_PTR 44 4 ( 4620.) 046 ¢ 4.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC LONG 
ASB ( 2651.) 5 ( 5.) NOPIC  USR REL LCL NOSHR EXE R&D NOWRT NOVEC BYTE 


024 AH-BT13A-SE : L EQUIPMENT CORPORATION 
VAX/VMS V4.0 | Aaa alt ASM 


bases EQUIPMENT CORPORATION 
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